home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / UNLOCK < prev    next >
Text File  |  1994-12-13  |  208b  |  3 lines
  1. UNLOCK: procedure;arg p;getuser 2400088;ta=result;if p=0 then do i=1 to ta;savescratch (-i);sendstring '.';end i
  2.   else do;findaccount p;id=result;savescratch (-id);end;transmit 'Account(s) unlocked.';return
  3.